home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / AIRPLANE_GOTOGARAGE.TCL < prev    next >
Encoding:
Text File  |  2000-10-18  |  1.2 KB  |  49 lines
  1. # -----------------------------------------------------------
  2. # Anflug der Garage fuer Flugzeuge. Normalerweise einfach
  3. # anfliegen, in Zielnaehe aber etwas langsamer werden und 
  4. # abbremsen.
  5. #
  6. #   ⌐ radon labs gmbh
  7. #
  8. #   17-Okt-00   af      created
  9. # ------------------------------------------------------------
  10.  
  11. # eine Root fuer Anflugmanoever
  12. new nroot airplane/gotogarage
  13. sel airplane/gotogarage
  14.  
  15. # einfaches Anfliegen
  16. new ncommandlist goto
  17. goto.setadjusttype      reach
  18. goto.settestcommand     aggoto_test
  19. goto.addcommand true 0 0 -100 false 0 0 0 nothing 5.0
  20.  
  21. proc aggoto_test {} { 
  22.  
  23.     return 0.5
  24. }
  25.  
  26.  
  27. # Anfliegen mit Abbremsen
  28. new ncommandlist break
  29. break.setadjusttype      reach
  30. break.settestcommand     agbreak_test
  31. break.addcommand true 0 0 -5  false 0 0 0 nothing 1.0
  32. break.addcommand true 0 0 -8  false 0 0 0 nothing 2.0
  33. break.addcommand true 0 0 -10 false 0 0 0 nothing 3.0
  34. break.addcommand true 0 0 -11 false 0 0 0 nothing 4.0
  35. break.addcommand true 0 0 -12 false 0 0 0 nothing 1.0
  36.  
  37. proc agbreak_test {} { 
  38.  
  39.     if {[.gettargetdistance] < 15} {
  40.         return 1.0
  41.     } else {
  42.         return 0.0
  43.     }
  44. }
  45.  
  46. sel ..
  47. sel ..
  48.  
  49.